home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)hh.d64 / run me 1st (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  78 lines
  1. 10 PRINT"[147]":POKE53280,0:POKE53281,0
  2. 11 GOSUB 1000
  3. 12 FOR A = 1 TO 4000:NEXT A
  4. 19 PRINT"[147]"
  5. 20 PRINT"FREEWARE GRAPHICS[146] FOR:"
  6. 30 PRINT"PRINTMASTER (TM) AND PRINT SHOP (TM)"
  7. 35 FOR A = 1 TO 2000:NEXT A
  8. 37 PRINT""
  9. 40 PRINT"[158]IF YOU ENJOY THESE GRAPHICS, PLEASE"
  10. 50 PRINT"SEND A CONTRIBUTION OF $5.00 OR MORE.
  11. 60 [153]"THIS WILL KEEP THE FREEWARE SYSTEM"
  12. 70 [153]"WORKING FOR ALL OF US."
  13. 80 [129] A [178] 1 [164] 4000:[130] A
  14. 90 [153]"LOAD":[153]"CONVERSIONS,"
  15. 100 [129] A [178] 1 [164] 1500:[130] A
  16. 110 [153]"ENHANCEMENTS,"
  17. 120 [129] A [178] 1 [164] 1500:[130] A
  18. 130 [153]"   AND/OR"
  19. 140 [129] A [178] 1 [164] 1500:[130] A
  20. 150 [153]"ORIGINAL GRAPHICS"
  21. 160 [129] A [178] 1 [164] 1500:[130] A
  22. 170 [153]"BY JERRY PECTOL"
  23. 180 [129] A [178] 1 [164] 4000:[130] A
  24. 190 [153]"LOAD":[153]"DISK (C)HG - GRAPHICS FOR PRINTMASTER"
  25. 200 [153]"DISK (C)HH - GRAPHICS FOR PRINT SHOP"
  26. 210 [129] A [178] 1 [164] 2000:[130] A
  27. 215 [153]""
  28. 220 [153]"GRAPHICS WERE CONVERTED, ENHANCED"
  29. 230 [153]"AND/OR CREATED USING THE FOLLOWING:"
  30. 240 [153]"PRINT SHOP (TM) BRODERBUND"
  31. 250 [153]"PRINTMASTER (TM) UNISON WORLD"
  32. 260 [153]"GRAPHICS EXPANDER (TM) SPRINGBOARD"
  33. 270 [153]"ICON FACTORY (TM) SOLUTIONS UNLIMITED"
  34. 280 [153]"PM/PS CONVERSION  ROGER JONES C.U.B."
  35. 290 [129] A [178] 1[164]6000:[130] A
  36. 300 [153]"LOAD":[153]"IF YOU ENJOY AND USE THESE GRAPHICS"
  37. 310 [153]"PLEASE SEND A DONATION OF $5.00 OR MORE"
  38. 320 [153]"TO THE FOLLOWING:"
  39. 330 [153]"JERRY PECTOL
  40. 340 PRINT"5508 BAYLOR DRIVE"
  41. 348 PRINT"BARTLESVILLE, OK  74006"
  42. 350 PRINT"[158]FREEWARE GRAPHICS II[146] COMING SOON!!!!!"
  43. 360 FOR A = 1 TO 7000:NEXT A
  44. 370 GET A$:IF A$=""THEN370
  45. 380 IF A$<>"*" THEN 370
  46. 1000 PRINT"[155]                                       ";
  47. 1010 PRINT" [151]          [169]  [155][146]                    ";
  48. 1020 PRINT"      [151]        [180][154][169]    [151][146]          [156]F";
  49. 1030 PRINT"REEWARE    [151] [155]  [151]       [158][169] [154] q    [155][146]  ";
  50. 1040 PRINT"                       [151]       n[151] [154]  ";
  51. 1050 PRINT"   [146] [151]            [156]GRAPHICS[155]    [151]     [129]";
  52. 1060 PRINT"[169] [151][146]  [154]       [155][146]                   ";
  53. 1070 PRINT"   [151]     [129]   [151][146] [154][169]         [151][146]       ";
  54. 1080 PRINT"     [159]BY [151] [155]    [151]     [129] [146][169][151] [154]      ";
  55. 1090 PRINT"     [155][146]                   [151]         [154] ";
  56. 1100 PRINT"           [151][146]        [159]JERRY   [155]  [151]    ";
  57. 1110 PRINT"     [154]            [155][146]                 ";
  58. 1120 PRINT" [151]          [154]           [151][146]   [169] [146][169][151]";
  59. 1130 PRINT"   [159]PECTOL[155]       [191][191][191][151][146]   [154]        ";
  60. 1140 PRINT"   [151][146] [169] [146][169][155]             [151][146]   [191][191][191]";
  61. 1150 PRINT"[191][151][146]   [154]     [146][169][151]  [154]    [146][169][151]    [159]     ";
  62. 1160 PRINT"  [155]    [151][146]  [191][191][191][191][151][146]    [158][180] [181][151]   [169]  ";
  63. 1170 PRINT"[154]   [155][146]              [151]    [151][146]  [191][191][191][151][146]";
  64. 1180 PRINT"   [158]o o[151] [169]      [154]  [155][146]              [151] ";
  65. 1190 PRINT"    [151][146]  [191][191][191]         [146][169][151]   [155][146]     ";
  66. 1200 PRINT"           [151]    [191][191]           [146][169]   [151] ";
  67. 1210 PRINT"[169] [155][146]                [151]  [191][191][191][191][151][146]  [182][151] [182]";
  68. 1220 PRINT"[151]         [169]  [146][169][155]                [151] [191][191]";
  69. 1230 PRINT"[191][191][151][146]   [182][151] [182]n[183]m[151]         [155][146]          ";
  70. 1240 PRINT"       [151] [191][191][191][151][146]   [129][169] [146][182]  [129][169] [151][146]   ";
  71. 1250 PRINT"[169]  [146][169][155]                 [151]       [129]   [169] ";
  72. 1260 PRINT"   [155][146]                        [151]  [152]B[151]    [129]";
  73. 1270 PRINT" [146][169]   [146] [146][169][155]                        ";
  74. 1280 PRINT"[151]   [152]J[151]      [129] [146][169][155]                    ";
  75. 1290 PRINT"       [151]    [152]C[155]                         ";
  76. 1300 PRINT"                                        ";
  77. 1301 RETURN
  78.